home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / SUM.LI < prev    next >
Text File  |  1993-12-19  |  206b  |  10 lines
  1. #    sum() gives sum
  2. #    e.g. sum(x^j, j, 1, 3) gives x+x^2+x^3
  3. #    See also: prod.
  4.  
  5. sum(y_,x_,a_,b_,c_) := block(sum:=0,
  6.     do(sum:=sum+y, x,a,b,c),
  7.     sum,
  8.     local(sum))
  9. sum(y_,x_,a_,b_) := sum(y, x,a,b,1)
  10.